MeteoRead Subroutine

SUBROUTINE MeteoRead &
!
( time, dem, albedo )

IMPLICIT NONE

!Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time !!current time
TYPE (grid_real), OPTIONAL, INTENT(IN) :: dem !!used to apply drift of station data
TYPE (grid_real), OPTIONAL, INTENT(IN) :: albedo !!used to apply drift of radiation site data

!-------------------------end of declarations----------------------------------

IF (dtPrecipitation > 0) THEN
   CALL PrecipitationRead (time, dem)
END IF

IF (dtPrecipitationDaily > 0) THEN
   CALL PrecipitationDailyRead (time, dem)
END IF

IF (dtTemperature > 0) THEN
   CALL AirTemperatureRead (time, dem)
END IF

IF (dtTemperatureDailyMean > 0) THEN
   CALL AirTemperatureDailyMeanRead (time, dem)
END IF

IF (dtTemperatureDailyMax > 0) THEN
   CALL AirTemperatureDailyMaxRead (time, dem)
END IF

IF (dtTemperatureDailyMin > 0) THEN
   CALL AirTemperatureDailyMinRead (time, dem)
END IF

IF (dtRelHumidity > 0) THEN
   CALL AirRelativeHumidityRead (time)
END IF

IF (dtRadiation > 0) THEN
   CALL SolarRadiationRead (time, dem, albedo, temperatureAir, relHumidityAir )
END IF

IF (dtWindSpeed > 0) THEN
   CALL WindFluxRead (time, dem)
END IF

IF ( time == timePointExport ) THEN
    CALL MeteoPointExport ( time )
    timePointExport = timePointExport + timeIncrementSites
END IF

RETURN
END SUBROUTINE MeteoRead